object Animate: TAnimate Left = 236 Top = 171 HelpContext = 41005 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderStyle = bsSingle Caption = 'Animated Blackjack' ClientHeight = 434 ClientWidth = 632 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnPaint = FormPaint OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object dbody: TImage Left = 384 Top = 512 Width = 105 Height = 167 Picture.Data = {} Visible = False end object dhead2: TImage Left = 496 Top = 512 Width = 101 Height = 82 Picture.Data = {} Visible = False end object dlarm1: TImage Left = 768 Top = 512 Width = 69 Height = 199 Picture.Data = {} Visible = False end object dlarm2: TImage Left = 848 Top = 512 Width = 103 Height = 148 Picture.Data = {} Visible = False end object dlarm3: TImage Left = 960 Top = 512 Width = 57 Height = 195 Picture.Data = {} Visible = False end object drarm1: TImage Left = 600 Top = 512 Width = 68 Height = 81 Picture.Data = {} Visible = False end object drarm2: TImage Left = 672 Top = 512 Width = 92 Height = 153 Picture.Data = {} Visible = False end object dtable1: TImage Left = 40 Top = 592 Width = 300 Height = 15 Picture.Data = {} Visible = False end object dtable2: TImage Left = 40 Top = 616 Width = 300 Height = 61 Picture.Data = {} Visible = False end object dlarm0: TImage Left = 572 Top = 604 Width = 51 Height = 77 Picture.Data = {} Visible = False end object ptable: TImage Left = 502 Top = 604 Width = 61 Height = 61 Picture.Data = {} Visible = False end object ptable2: TImage Left = 30 Top = 684 Width = 250 Height = 8 Picture.Data = {} Visible = False end object Cards: TImage Left = 648 Top = 200 Width = 533 Height = 216 Picture.Data = {} Visible = False end object CardBack: TImage Left = 296 Top = 288 Width = 41 Height = 54 Picture.Data = {} Visible = False end object balloon: TImage Left = 272 Top = 72 Width = 97 Height = 70 Picture.Data = {} Visible = False end object balloon2: TImage Left = 272 Top = 152 Width = 97 Height = 70 Picture.Data = {} Visible = False end object Heads: TImage Left = 664 Top = 0 Width = 178 Height = 1602 Picture.Data = {} Visible = False end object Digits: TImage Left = 32 Top = 256 Width = 188 Height = 147 Picture.Data = {} Visible = False end object Head2: TImage Left = 848 Top = 4 Width = 178 Height = 1602 Picture.Data = {} Visible = False end object Button6: TButton Left = 528 Top = 392 Width = 97 Height = 41 HelpContext = 41005 Caption = '&Deal' Default = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = Button6Click end object Panel1: TPanel Left = 524 Top = 12 Width = 105 Height = 56 TabOrder = 1 object Image1: TImage Tag = 1 Left = 1 Top = 1 Width = 103 Height = 54 Align = alClient OnClick = Image1Click end end object Panel2: TPanel Left = 524 Top = 75 Width = 105 Height = 56 TabOrder = 2 object Image2: TImage Tag = 2 Left = 1 Top = 1 Width = 103 Height = 54 Align = alClient OnClick = Image1Click end end object Panel3: TPanel Left = 524 Top = 139 Width = 105 Height = 56 TabOrder = 3 object Image3: TImage Tag = 3 Left = 1 Top = 1 Width = 103 Height = 54 Align = alClient OnClick = Image1Click end end object Panel4: TPanel Left = 524 Top = 203 Width = 105 Height = 56 TabOrder = 4 object Image4: TImage Tag = 4 Left = 1 Top = 1 Width = 103 Height = 54 Align = alClient OnClick = Image1Click end end object Panel5: TPanel Left = 524 Top = 267 Width = 105 Height = 56 TabOrder = 5 object Image5: TImage Tag = 5 Left = 1 Top = 1 Width = 103 Height = 54 Align = alClient OnClick = Image1Click end end object Panel6: TPanel Left = 524 Top = 328 Width = 105 Height = 56 TabOrder = 6 object Image6: TImage Tag = 6 Left = 1 Top = 1 Width = 103 Height = 54 Align = alClient OnClick = Image1Click end end object Button1: TButton Left = 384 Top = 73 Width = 97 Height = 41 HelpContext = 41005 Caption = '&Catalog' TabOrder = 7 Visible = False OnClick = Button1Click end object Button2: TButton Left = 384 Top = 121 Width = 97 Height = 41 HelpContext = 41005 Caption = '&New Game' TabOrder = 8 Visible = False OnClick = Button2Click end object Button3: TButton Left = 384 Top = 169 Width = 97 Height = 41 HelpContext = 41005 Caption = '&Speed: Very Fast' TabOrder = 9 Visible = False OnClick = Button3Click end object Button4: TButton Left = 384 Top = 217 Width = 97 Height = 41 HelpContext = 41005 Caption = 'E&xit' TabOrder = 10 Visible = False OnClick = Button4Click end object BitBtn1: TBitBtn Left = 384 Top = 25 Width = 97 Height = 41 HelpContext = 41005 TabOrder = 11 Visible = False OnClick = BitBtn1Click Kind = bkHelp end object MainMenu1: TMainMenu Left = 326 Top = 4 object File1: TMenuItem Caption = '&File' ShortCut = 0 object New1: TMenuItem Caption = '&New Game' ShortCut = 0 OnClick = New1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit Program' ShortCut = 0 OnClick = Exit1Click end end object Options1: TMenuItem Caption = '&Options' ShortCut = 0 object Hints1: TMenuItem Caption = 'Hints' ShortCut = 0 object On1: TMenuItem Caption = 'On' ShortCut = 0 OnClick = On1Click end end object Sound1: TMenuItem Caption = 'Soun&d' ShortCut = 0 object SoundOn1: TMenuItem Caption = 'Sound On' ShortCut = 0 OnClick = SoundOn1Click end object N4: TMenuItem Caption = '-' ShortCut = 0 end object BlackjackSound1: TMenuItem Caption = 'Blackjack Sound' ShortCut = 0 OnClick = BlackjackSound1Click end object CardDealSound1: TMenuItem Caption = 'Card Deal Sound' ShortCut = 0 OnClick = CardDealSound1Click end object LoseSound1: TMenuItem Caption = 'Lose Sound' ShortCut = 0 OnClick = LoseSound1Click end object Shuffle1: TMenuItem Caption = 'Shuffle Sound' ShortCut = 0 OnClick = Shuffle1Click end object WinSound1: TMenuItem Caption = 'Win Sound' ShortCut = 0 OnClick = WinSound1Click end object N5: TMenuItem Caption = '-' ShortCut = 0 end object ChangeSounds1: TMenuItem Caption = 'Change Sounds' ShortCut = 0 OnClick = ChangeSounds1Click end end object Speed1: TMenuItem Caption = '&Speed' ShortCut = 0 object VeryFast1: TMenuItem Caption = '&Very Fast' ShortCut = 0 OnClick = VeryFast1Click end object Fast1: TMenuItem Caption = '&Fast' Checked = True ShortCut = 0 OnClick = Fast1Click end object Medium1: TMenuItem Caption = '&Medium' ShortCut = 0 OnClick = Medium1Click end object Slow1: TMenuItem Caption = '&Slow' ShortCut = 0 OnClick = Slow1Click end end object StrategyCards1: TMenuItem Caption = 'Strategy &Cards' ShortCut = 0 OnClick = StrategyCards1Click end end object AutoDeal1: TMenuItem Caption = '&Auto Deal' ShortCut = 0 object AutoDeal2: TMenuItem Caption = 'Auto Deal' ShortCut = 0 OnClick = AutoDeal2Click end end object CardCount1: TMenuItem Caption = 'C&ard Count' ShortCut = 0 OnClick = CardCount1Click end object Register1: TMenuItem Caption = '&Register' ShortCut = 0 OnClick = Register1Click end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object About1: TMenuItem Caption = '&About' ShortCut = 0 OnClick = About1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Manual1: TMenuItem Caption = '&Manual Contents' ShortCut = 0 OnClick = Manual1Click end object CountingCards1: TMenuItem Caption = 'C&ounting Cards' ShortCut = 0 OnClick = CountingCards1Click end object Troubleshooting1: TMenuItem Caption = '&Troubleshooting' ShortCut = 0 OnClick = Troubleshooting1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Catalog1: TMenuItem Caption = '&Catalog' ShortCut = 0 OnClick = Catalog1Click end object freeCD1: TMenuItem Caption = '&Free CD' ShortCut = 0 OnClick = freeCD1Click end end end object OpenTimer: TTimer Enabled = False Interval = 500 OnTimer = OpenTimerTimer Left = 294 Top = 3 end object AutoModeTimer: TTimer Enabled = False Interval = 200 OnTimer = AutoModeTimerTimer Left = 198 Top = 3 end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Left = 262 Top = 3 end object SaveDialog1: TSaveDialog FileEditStyle = fsEdit Left = 230 Top = 3 end object Thinking: TTimer Enabled = False Interval = 2000 OnTimer = ThinkingTimer Left = 150 Top = 3 end end